10 KEY
100 LOCATE
1000 CENTRE
1010 PRINT
1020 PRINT
1030 PRINT
1040 PRINT
1050 PRINT
1060 PRINT
1070 LOCATE
1080 CLEAR KEY
110 FOR
120 UPDATE
130 GOSUB
140 CLEAR KEY
150 VARNAME
160 IF
170 CLW
180 REPEAT
190 CLW
20 DIM
200 IF
210 IF
220 IF
230 GOSUB
240 LOCATE
250 LOCATE
260 IF
270 LOCATE
280 FOR
290 CLW
30 PALETTE
300 CENTRE
310 PRINT
320 CENTRE
330 PRINT
340 PRINT
350 CLEAR KEY
360 REPEAT
370 VARNAME
380 VARNAME
390 REPEAT
40 WINDOPEN
400 UNTIL
410 VARNAME
420 VARNAME
430 VARNAME
440 IF
450 IF
460 LOCATE
470 LOCATE
480 LOCATE
490 IF
50 WINDOPEN
500 LOCATE
510 LOCATE
520 VARNAME
530 UNTIL
540 VARNAME
550 VARNAME
560 REPEAT
570 VARNAME
580 UNTIL
590 LOCATE
60 QWINDOW
600 IF
610 LOCATE
620 LOCATE
630 LOCATE
640 IF
650 WAIT
660 WINDOW
670 REPEAT
680 LOCATE
690 BELL
70 FOR
700 PAPER
710 IF
720 VARNAME
730 LOCATE
740 IF
750 LOCATE
760 SWAP
770 VARNAME
780 UNTIL
790 WINDOW
80 BOX
800 IF
810 IF
820 IF
830 IF
840 SPRITE
850 UPDATE
860 CLW
870 PRINT
880 PRINT
890 CENTRE
90 PEN
900 PRINT
910 PRINT
920 PRINT
930 CENTRE
940 PRINT
950 PRINT
960 PRINT
970 PRINT
980 PRINT
990 PRINT